with Serveur;
with Saisir_afficher; use saisir_afficher;
with Strings;
package body Spectateur is
   procedure demarrer (N : individu; attente : duration) is
   begin
      loop
         declare
            message : constant string := serveur.Etat(N);
         begin
            if message = "" then exit;
            else
               afficher(" => " & message);
            end if;
         end;
         delay attente;
      end loop;
   end;
end Spectateur;
